Voorbeeld van de instructies Lock en Unlock

Dit voorbeeld laat zien hoe de instructies Lock en Unlock kunnen worden gebruikt. Tijdens het wijzigen van een record wordt toegang van andere processen tot die record niet toegestaan. Dit voorbeeld gaat ervan uit dat TESTBSTD een bestand is dat vijf records bevat van het door de gebruiker gedefinieerde type Record.

Type Record    ' Define user-defined type.
    ID As Integer
    Name As String * 20
End Type

Dim MyRecord As Record, RecordNumber    ' Declare variables.
' Open sample file for random access.
Open "TESTBSTD" For Random Shared As #1 Len = Len(MyRecord)
RecordNumber = 4    ' Define record number.
Lock #1, RecordNumber    ' Lock record.
Get #1, RecordNumber, MyRecord    ' Read record.
MyRecord.ID = 234    ' Modify record.
MyRecord.Name = "Jan Jansen"
Put #1, RecordNumber, MyRecord    ' Write modified record.
Unlock #1, RecordNumber    ' Unlock current record.
Close #1    ' Close file.